(crm-minibuffer-completion-help):

Use `crm-current-element' for second arg of `display-completion-list'.

diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index 46ae6186e44739a715f5ddf0e80bf78795956740..12f0788a0deaecb239b81b66340fe2c7427d8622 100644 (file)
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -247,7 +247,9 @@ and return t."
       (if (null completions)
          (crm-temp-echo-area-glyphs " [No completions]")
        (with-output-to-temp-buffer "*Completions*"
-         (display-completion-list (sort completions 'string-lessp))))))
+         (display-completion-list
+          (sort completions 'string-lessp)
+          crm-current-element)))))
   nil)
 
 (defun crm-do-completion ()